/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / AppleScript / Auto-send to address.sit / Auto-send to address / somename@somedomain (text)

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1a 73 6f 6d 65 6e 61 | 6d 65 40 73 6f 6d 65 64 |..somena|me@somed|
|00000010| 6f 6d 61 69 6e 20 28 74 | 65 78 74 29 00 00 00 00 |omain (t|ext)....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 54 6f 79 | 53 01 00 00 00 00 00 00 |.TEXTToy|S.......|
|00000050| 00 00 00 00 00 06 41 00 | 00 03 8c aa 24 d2 85 aa |......A.|....$...|
|00000060| 24 d2 85 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0d a0 00 00 |........|........|
|00000080| 2d 2d 20 54 68 69 73 20 | 69 73 20 61 20 76 65 72 |-- This |is a ver|
|00000090| 79 20 75 73 65 66 75 6c | 20 66 75 6e 63 74 69 6f |y useful| functio|
|000000a0| 6e 20 74 68 61 74 20 72 | 65 74 75 72 6e 73 20 74 |n that r|eturns t|
|000000b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 20 66 69 6c |he name |of a fil|
|000000c0| 65 2c 20 0d 2d 2d 20 67 | 69 76 65 6e 20 69 74 73 |e, .-- g|iven its|
|000000d0| 20 66 75 6c 6c 20 70 61 | 74 68 20 6e 61 6d 65 0d | full pa|th name.|
|000000e0| 2d 2d 20 46 65 65 6c 20 | 66 72 65 65 20 74 6f 20 |-- Feel |free to |
|000000f0| 75 73 65 20 69 74 20 69 | 6e 20 79 6f 75 72 20 6f |use it i|n your o|
|00000100| 77 6e 20 73 63 72 69 70 | 74 73 21 0d 0d 6f 6e 20 |wn scrip|ts!..on |
|00000110| 46 69 6e 64 4e 61 6d 65 | 28 66 75 6c 6c 50 61 74 |FindName|(fullPat|
|00000120| 68 4e 61 6d 65 29 0d 09 | 69 66 20 7b 73 74 72 69 |hName)..|if {stri|
|00000130| 6e 67 7d 20 64 6f 65 73 | 20 6e 6f 74 20 63 6f 6e |ng} does| not con|
|00000140| 74 61 69 6e 20 63 6c 61 | 73 73 20 6f 66 20 66 75 |tain cla|ss of fu|
|00000150| 6c 6c 50 61 74 68 4e 61 | 6d 65 20 74 68 65 6e 0d |llPathNa|me then.|
|00000160| 09 09 73 65 74 20 66 75 | 6c 6c 50 61 74 68 4e 61 |..set fu|llPathNa|
|00000170| 6d 65 20 74 6f 20 28 66 | 75 6c 6c 50 61 74 68 4e |me to (f|ullPathN|
|00000180| 61 6d 65 20 61 73 20 73 | 74 72 69 6e 67 29 0d 09 |ame as s|tring)..|
|00000190| 65 6e 64 20 69 66 0d 09 | 74 72 79 0d 09 09 73 65 |end if..|try...se|
|000001a0| 74 20 6f 6c 64 44 65 6c | 69 6d 69 74 65 72 73 20 |t oldDel|imiters |
|000001b0| 74 6f 20 28 41 70 70 6c | 65 53 63 72 69 70 74 27 |to (Appl|eScript'|
|000001c0| 73 20 74 65 78 74 20 69 | 74 65 6d 20 64 65 6c 69 |s text i|tem deli|
|000001d0| 6d 69 74 65 72 73 29 0d | 09 09 73 65 74 20 41 70 |miters).|..set Ap|
|000001e0| 70 6c 65 53 63 72 69 70 | 74 27 73 20 74 65 78 74 |pleScrip|t's text|
|000001f0| 20 69 74 65 6d 20 64 65 | 6c 69 6d 69 74 65 72 73 | item de|limiters|
|00000200| 20 74 6f 20 7b 22 3a 22 | 7d 0d 09 09 73 65 74 20 | to {":"|}...set |
|00000210| 74 68 65 4e 61 6d 65 20 | 74 6f 20 28 6c 61 73 74 |theName |to (last|
|00000220| 20 74 65 78 74 20 69 74 | 65 6d 20 6f 66 20 66 75 | text it|em of fu|
|00000230| 6c 6c 50 61 74 68 4e 61 | 6d 65 29 0d 09 09 73 65 |llPathNa|me)...se|
|00000240| 74 20 41 70 70 6c 65 53 | 63 72 69 70 74 27 73 20 |t AppleS|cript's |
|00000250| 74 65 78 74 20 69 74 65 | 6d 20 64 65 6c 69 6d 69 |text ite|m delimi|
|00000260| 74 65 72 73 20 74 6f 20 | 6f 6c 64 44 65 6c 69 6d |ters to |oldDelim|
|00000270| 69 74 65 72 73 0d 09 6f | 6e 20 65 72 72 6f 72 0d |iters..o|n error.|
|00000280| 09 09 73 65 74 20 41 70 | 70 6c 65 53 63 72 69 70 |..set Ap|pleScrip|
|00000290| 74 27 73 20 74 65 78 74 | 20 69 74 65 6d 20 64 65 |t's text| item de|
|000002a0| 6c 69 6d 69 74 65 72 73 | 20 74 6f 20 6f 6c 64 44 |limiters| to oldD|
|000002b0| 65 6c 69 6d 69 74 65 72 | 73 0d 09 65 6e 64 20 74 |elimiter|s..end t|
|000002c0| 72 79 0d 09 72 65 74 75 | 72 6e 20 74 68 65 4e 61 |ry..retu|rn theNa|
|000002d0| 6d 65 0d 65 6e 64 20 46 | 69 6e 64 4e 61 6d 65 0d |me.end F|indName.|
|000002e0| 0d 6f 6e 20 6f 70 65 6e | 20 66 69 6c 65 4c 69 73 |.on open| fileLis|
|000002f0| 74 20 2d 2d 20 54 68 69 | 73 20 69 73 20 6e 65 63 |t -- Thi|s is nec|
|00000300| 65 73 73 61 72 79 20 66 | 6f 72 20 64 72 6f 70 2d |essary f|or drop-|
|00000310| 61 62 69 6c 69 74 79 0d | 09 0d 09 2d 2d 20 46 69 |ability.|...-- Fi|
|00000320| 72 73 74 20 74 68 69 6e | 67 3a 20 66 69 6e 64 20 |rst thin|g: find |
|00000330| 6d 79 20 6e 61 6d 65 3a | 20 69 74 27 73 20 74 68 |my name:| it's th|
|00000340| 65 20 72 65 63 65 69 76 | 65 72 27 73 20 6e 61 6d |e receiv|er's nam|
|00000350| 65 0d 09 73 65 74 20 77 | 68 6f 54 6f 53 65 6e 64 |e..set w|hoToSend|
|00000360| 54 6f 20 74 6f 20 28 46 | 69 6e 64 4e 61 6d 65 28 |To to (F|indName(|
|00000370| 70 61 74 68 20 74 6f 20 | 6d 65 29 29 0d 09 0d 09 |path to |me))....|
|00000380| 74 65 6c 6c 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |tell app|lication|
|00000390| 20 22 45 75 64 6f 72 61 | 31 2e 34 2e 32 22 0d 09 | "Eudora|1.4.2"..|
|000003a0| 09 72 65 70 65 61 74 20 | 77 69 74 68 20 6f 6e 65 |.repeat |with one|
|000003b0| 46 69 6c 65 20 69 6e 20 | 66 69 6c 65 4c 69 73 74 |File in |fileList|
|000003c0| 0d 09 09 09 2d 2d 20 49 | 20 70 72 65 66 65 72 20 |....-- I| prefer |
|000003d0| 74 6f 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |to creat|e a new |
|000003e0| 6d 61 69 6c 20 6d 65 73 | 73 61 67 65 20 66 6f 72 |mail mes|sage for|
|000003f0| 20 65 61 63 68 20 64 6f | 63 75 6d 65 6e 74 20 62 | each do|cument b|
|00000400| 65 63 61 75 73 65 20 73 | 6f 6d 65 20 6d 61 69 6c |ecause s|ome mail|
|00000410| 65 72 73 20 63 61 6e 6e | 6f 74 0d 09 09 09 2d 2d |ers cann|ot....--|
|00000420| 20 63 6f 70 65 20 77 69 | 74 68 20 6d 75 6c 74 69 | cope wi|th multi|
|00000430| 70 6c 65 20 61 74 74 61 | 63 68 65 6d 65 6e 74 73 |ple atta|chements|
|00000440| 20 28 65 2e 67 2e 20 6e | 6f 6e 2d 4d 49 4d 45 2d | (e.g. n|on-MIME-|
|00000450| 61 77 61 72 65 20 6d 61 | 69 6c 65 72 73 29 0d 09 |aware ma|ilers)..|
|00000460| 09 09 73 65 74 20 6e 65 | 77 4d 73 67 20 74 6f 20 |..set ne|wMsg to |
|00000470| 6d 61 6b 65 20 6f 62 6a | 65 63 74 63 6c 61 73 73 |make obj|ectclass|
|00000480| 20 6d 65 73 73 61 67 65 | 20 69 6e 73 65 72 74 68 | message| inserth|
|00000490| 65 72 65 20 65 6e 64 20 | 6f 66 20 6d 61 69 6c 62 |ere end |of mailb|
|000004a0| 6f 78 20 22 4f 75 74 22 | 20 6f 66 20 6d 61 69 6c |ox "Out"| of mail|
|000004b0| 20 66 6f 6c 64 65 72 20 | 22 22 0d 09 09 09 73 65 | folder |""....se|
|000004c0| 74 20 66 69 65 6c 64 20 | 22 54 6f 3a 22 20 6f 66 |t field |"To:" of|
|000004d0| 20 6e 65 77 4d 73 67 20 | 74 6f 20 77 68 6f 54 6f | newMsg |to whoTo|
|000004e0| 53 65 6e 64 54 6f 0d 09 | 09 09 0d 09 09 09 2d 2d |SendTo..|......--|
|000004f0| 20 46 69 6e 64 20 74 68 | 65 20 6e 61 6d 65 20 6f | Find th|e name o|
|00000500| 66 20 74 68 65 20 66 69 | 6c 65 3b 20 74 68 65 20 |f the fi|le; the |
|00000510| 22 6d 79 22 20 69 73 20 | 6e 65 63 65 73 73 61 72 |"my" is |necessar|
|00000520| 79 20 66 6f 72 20 45 75 | 64 6f 72 61 20 6e 6f 74 |y for Eu|dora not|
|00000530| 20 74 6f 20 69 6e 74 65 | 72 70 72 65 74 20 74 68 | to inte|rpret th|
|00000540| 65 0d 09 09 09 2d 2d 20 | 46 69 6e 64 4e 61 6d 65 |e....-- |FindName|
|00000550| 20 70 72 6f 63 65 64 75 | 72 65 2e 2e 2e 0d 09 09 | procedu|re......|
|00000560| 09 73 65 74 20 6f 6e 65 | 46 69 6c 65 4e 61 6d 65 |.set one|FileName|
|00000570| 20 74 6f 20 6d 79 20 28 | 46 69 6e 64 4e 61 6d 65 | to my (|FindName|
|00000580| 28 6f 6e 65 46 69 6c 65 | 29 29 0d 09 09 09 73 65 |(oneFile|))....se|
|00000590| 74 20 66 69 65 6c 64 20 | 22 53 75 62 6a 65 63 74 |t field |"Subject|
|000005a0| 3a 22 20 6f 66 20 6e 65 | 77 4d 73 67 20 74 6f 20 |:" of ne|wMsg to |
|000005b0| 6f 6e 65 46 69 6c 65 4e | 61 6d 65 0d 09 09 09 0d |oneFileN|ame.....|
|000005c0| 09 09 09 61 74 74 61 63 | 68 20 6e 65 77 4d 73 67 |...attac|h newMsg|
|000005d0| 20 64 6f 63 75 6d 65 6e | 74 6c 69 73 74 20 6f 6e | documen|tlist on|
|000005e0| 65 46 69 6c 65 0d 09 09 | 09 71 75 65 75 65 20 6e |eFile...|.queue n|
|000005f0| 65 77 4d 73 67 20 71 75 | 65 75 65 74 79 70 65 20 |ewMsg qu|euetype |
|00000600| 31 0d 09 09 09 0d 09 09 | 65 6e 64 20 72 65 70 65 |1.......|end repe|
|00000610| 61 74 0d 09 09 0d 09 09 | 77 69 74 68 20 74 69 6d |at......|with tim|
|00000620| 65 6f 75 74 20 6f 66 20 | 33 36 30 30 20 73 65 63 |eout of |3600 sec|
|00000630| 6f 6e 64 73 20 2d 2d 20 | 31 20 68 6f 75 72 20 6f |onds -- |1 hour o|
|00000640| 75 67 68 74 20 74 6f 20 | 64 6f 20 69 74 21 0d 09 |ught to |do it!..|
|00000650| 09 09 63 6f 6e 6e 65 63 | 74 20 77 69 74 68 20 73 |..connec|t with s|
|00000660| 65 6e 64 20 61 6e 64 20 | 77 68 65 6e 20 69 64 6c |end and |when idl|
|00000670| 65 20 77 69 74 68 6f 75 | 74 20 63 68 65 63 6b 20 |e withou|t check |
|00000680| 2d 2d 20 53 65 6e 64 20 | 74 68 65 20 71 75 65 75 |-- Send |the queu|
|00000690| 65 64 20 6d 65 73 73 61 | 67 65 73 0d 09 09 65 6e |ed messa|ges...en|
|000006a0| 64 20 74 69 6d 65 6f 75 | 74 0d 09 09 0d 09 65 6e |d timeou|t.....en|
|000006b0| 64 20 74 65 6c 6c 0d 65 | 6e 64 20 6f 70 65 6e 0d |d tell.e|nd open.|
|000006c0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 03 32 | 00 00 02 32 00 00 00 5a |.......2|...2...Z|
|00000710| 01 5e 00 80 ff ff 00 00 | 00 00 01 09 6a 50 04 68 |.^......|....jP.h|
|00000720| ff ff 00 00 18 02 01 09 | 69 94 13 89 ff ff 00 00 |........|i.......|
|00000730| 18 53 63 72 69 70 74 20 | 45 64 69 74 6f 72 20 54 |.Script |Editor T|
|00000740| 65 6d 70 20 30 30 30 30 | 31 74 02 00 00 00 54 45 |emp 0000|1t....TE|
|00000750| 00 00 54 45 58 54 54 6f | 79 53 00 00 00 00 00 00 |..TEXTTo|yS......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 88 00 00 00 00 00 |........|........|
|00000770| 00 00 aa 24 8c 35 00 00 | 06 41 00 00 03 8c 00 81 |...$.5..|.A......|
|00000780| ff ff 00 00 1b 43 01 09 | 69 70 00 82 ff ff 00 00 |.....C..|ip......|
|00000790| 1b 4e 01 09 69 6c 00 83 | ff ff 00 00 1b 59 01 09 |.N..il..|.....Y..|
|000007a0| 69 68 00 84 ff ff 00 00 | 1b 64 01 09 69 64 00 97 |ih......|.d..id..|
|000007b0| ff ff 00 00 1b 6f 01 09 | 69 60 00 97 ff ff 00 00 |.....o..|i`......|
|000007c0| 1c 73 01 09 69 5c 00 97 | ff ff 00 00 1e 77 01 09 |.s..i\..|.....w..|
|000007d0| 69 58 00 97 ff ff 00 00 | 1e bb 01 09 69 54 e9 c0 |iX......|....iT..|
|000007e0| ff ff 00 00 20 42 01 09 | 69 4c ff ff ff ff 00 00 |.... B..|iL......|
|000007f0| 20 58 01 09 69 48 00 80 | ff ff 00 00 20 66 01 09 | X..iH..|.... f..|
|00000800| 00 00 01 c2 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000820| 20 20 41 75 74 6f 2d 53 | 65 6e 64 20 66 69 6c 65 |  Auto-S|end file|
|00000830| 73 0d 20 20 54 68 69 73 | 20 73 63 72 69 70 74 20 |s.  This| script |
|00000840| 77 69 6c 6c 20 69 6e 73 | 74 72 75 63 74 20 45 75 |will ins|truct Eu|
|00000850| 64 6f 72 61 20 74 6f 20 | 73 65 6e 64 20 61 6e 79 |dora to |send any|
|00000860| 20 6e 75 6d 62 65 72 20 | 6f 66 20 66 69 6c 65 73 | number |of files|
|00000870| 20 74 6f 20 74 68 65 20 | 72 65 63 69 70 69 65 6e | to the |recipien|
|00000880| 74 20 77 68 6f 73 65 20 | 65 2d 6d 61 69 6c 20 61 |t whose |e-mail a|
|00000890| 64 64 72 65 73 73 20 69 | 73 20 74 68 65 20 6e 61 |ddress i|s the na|
|000008a0| 6d 65 20 6f 66 20 74 68 | 65 20 73 63 72 69 70 74 |me of th|e script|
|000008b0| 2e 0d 20 20 44 75 70 6c | 69 63 61 74 65 20 74 68 |..  Dupl|icate th|
|000008c0| 69 73 20 73 63 72 69 70 | 74 20 61 6e 64 20 72 65 |is scrip|t and re|
|000008d0| 6e 61 6d 65 20 74 68 65 | 20 63 6f 70 69 65 73 20 |name the| copies |
|000008e0| 74 6f 20 73 75 69 74 20 | 79 6f 75 72 20 6e 65 65 |to suit |your nee|
|000008f0| 64 73 21 0d 20 20 59 6f | 75 20 63 61 6e 20 61 6c |ds!.  Yo|u can al|
|00000900| 73 6f 20 6e 61 6d 65 20 | 74 68 69 73 20 73 63 72 |so name |this scr|
|00000910| 69 70 74 20 74 6f 20 61 | 6e 20 45 75 64 6f 72 61 |ipt to a|n Eudora|
|00000920| 20 6e 69 63 6b 61 6d 65 | 2c 20 69 66 20 79 6f 75 | nickame|, if you|
|00000930| 20 77 69 73 68 2e 20 54 | 68 69 73 20 69 73 20 65 | wish. T|his is e|
|00000940| 73 70 65 63 69 61 6c 6c | 79 20 75 73 65 66 75 6c |speciall|y useful|
|00000950| 20 66 6f 72 20 64 69 73 | 74 72 69 62 75 74 69 6f | for dis|tributio|
|00000960| 6e 20 6c 69 73 74 73 2e | 0d 0d 41 20 66 72 65 65 |n lists.|..A free|
|00000970| 77 61 72 65 20 73 63 72 | 69 70 74 20 62 79 3a 20 |ware scr|ipt by: |
|00000980| 50 68 69 6c 69 70 70 65 | 20 43 61 73 67 72 61 69 |Philippe| Casgrai|
|00000990| 6e 20 28 43 61 73 67 72 | 61 69 6e 40 65 63 6f 6c |n (Casgr|ain@ecol|
|000009a0| 2e 75 63 6c 2e 61 63 2e | 62 65 2c 20 43 61 73 67 |.ucl.ac.|be, Casg|
|000009b0| 72 61 69 6e 40 65 72 65 | 2e 75 6d 6f 6e 74 72 65 |rain@ere|.umontre|
|000009c0| 61 6c 2e 63 61 29 00 00 | 00 52 00 04 00 00 00 00 |al.ca)..|.R......|
|000009d0| 00 0e 00 0a 00 10 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 1e 00 0e 00 0a | 00 10 01 00 00 0c 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 2d | 00 0e 00 0a 00 10 00 00 |.......-|........|
|00000a00| 00 0c 00 00 00 00 00 00 | 00 00 01 66 00 0e 00 0a |........|...f....|
|00000a10| 00 10 00 00 00 0c ff ff | 23 c8 28 ae 00 00 00 12 |........|#.(.....|
|00000a20| 00 2f 00 1e 01 c1 02 6a | 00 28 00 02 01 dd 02 5d |./.....j|.(.....]|
|00000a30| 00 00 00 00 01 00 00 00 | 03 32 00 00 02 32 00 00 |........|.2...2..|
|00000a40| 00 5a 01 09 6c 44 13 1a | 00 00 00 1c 00 5a 00 02 |.Z..lD..|.....Z..|
|00000a50| 54 45 58 54 00 00 00 1a | 73 74 79 6c 00 00 00 26 |TEXT....|styl...&|
|00000a60| 57 50 6f 73 00 00 00 32 | 04 68 ff ff 00 00 00 00 |WPos...2|.h......|
|00000a70| 01 09 6d 9c 04 68 ff ff | 00 00 01 c6 01 09 6a f0 |..m..h..|......j.|
|00000a80| 00 80 ff ff 00 00 02 1c | 01 09 6b f8 00 00 00 00 |........|..k.....|
|00000a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+